home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / misc / math / mdlgraph1.1.lha / ModuleGrapher / Source / includes / macros.i < prev    next >
Encoding:
Text File  |  1998-10-02  |  2.6 KB  |  90 lines
  1.  
  2. ;(C)1998 Module-Grapher, Stuart Reeves
  3. ;macro include
  4. ;$VER: 1.16
  5.  
  6. Macro ctrlwin
  7.   Window #win_c,w\ctrlpos_x,w\ctrlpos_y,w\ctrlwid,w\ctrlhgt,$1|$2|$4|$1408,"Control",1,2,0
  8.   GTSetMenu 0
  9.   WTitle "Graph control",title$
  10.   r\tsize=WTopOff,WLeftOff
  11.   f\win_c=1
  12.   JSR gtwin_c:AttachGTList 0,#win_c
  13. End Macro
  14.  
  15. Macro frc_ctrlwin
  16.   Window #win_fc,w\frc_ctrlpos_x,w\frc_ctrlpos_y,w\frc_ctrlwid,w\frc_ctrlhgt,$1|$2|$4|$1408,"Fractal control",1,2,1
  17.   GTSetMenu 0
  18.   WTitle "Fractal control","Fractal control window"
  19.   r\tsize=WTopOff,WLeftOff             ;and again in case only on window is open
  20.   f\win_fc=1
  21.   JSR gtwin_fc:AttachGTList 1,#win_fc
  22. End Macro
  23.  
  24. Macro grpwin
  25.   Window #win_g,w\grppos_x,w\grppos_y,w\grpwid,w\grphgt,$1|$2|$4|$408,"Graph",1,2
  26.   WTitle "Graph","Graphing window"
  27.   f\win_g=1:f\drw_g=1                  ;+ make update
  28. End Macro
  29.  
  30. Macro frcwin
  31.   Window #win_f,w\frcpos_x,w\frcpos_y,w\frcwid,w\frchgt,$1|$2|$4|$408,"Convergence",1,2
  32.   WTitle "Fractal","Fractal convergence window"
  33.   f\win_f=1
  34. End Macro
  35.  
  36. Macro hlpwin
  37.   Window #win_h,w\hlppos_x,w\hlppos_y,w\hlpwid,w\hlphgt,$2|$4|$408,"Help",1,2
  38.   WindowFont 0
  39.   WTitle "Help","Help window"
  40.   f\win_h=1
  41.   JSR gtwin_h:AttachGTList 2,#win_h
  42. End Macro
  43.  
  44. Macro prfwin
  45.   Window #win_p,(r\ww-w\prfwid)/2,(r\wh-w\prfhgt)/2,w\prfwid,w\prfhgt,$1|$2|$4|$408,"Preferences",1,2
  46.   WTitle "Preferences","Preferences for Module-Grapher"
  47.   f\win_p=1
  48.   JSR gtwin_p:AttachGTList 3,#win_p
  49. End Macro
  50.  
  51. Macro dBdC                          ;macro to disable b+c
  52.   GTDisable 0,3:GTDisable 0,4:GTDisable 0,5
  53.   GTDisable 0,6:GTDisable 0,7:GTDisable 0,8
  54. End Macro
  55.  
  56. Macro eBdC                          ;macro to enable b, disable c
  57.   GTEnable 0,3:GTEnable 0,4:GTEnable 0,5
  58.   GTDisable 0,6:GTDisable 0,7:GTDisable 0,8
  59. End Macro
  60.  
  61. Macro eBeC
  62.   For i.b=3 To 8:GTEnable 0,i:Next
  63. End Macro
  64.  
  65. Macro fld_cfg                       ;window positions
  66.   Fields 0,r\ww,r\wh,f\win_c,f\win_fc,f\win_g,f\win_f,f\win_h
  67.   Fields 0,w\ctrlpos_x,w\ctrlpos_y,w\frc_ctrlpos_x,w\frc_ctrlpos_y,w\grppos_x,w\grppos_y
  68.   Fields 0,w\grpwid,w\grphgt,w\frcpos_x,w\frcpos_y,w\frcwid,w\frchgt,w\hlppos_x,w\hlppos_y
  69. End Macro
  70.  
  71. Macro fld_prefs                     ;quick fields macro
  72.   Fields 1,*f.font,g\ia,g\ib,g\ic,g\ip,f\r_flg
  73. End Macro
  74.  
  75. Macro qchk
  76.   evr.b=Request("Quit?","Do you really want to quit this marvellous program?","Yep|Nope")
  77.   f\q_flg=evr
  78.   FlushEvents
  79. End Macro
  80.  
  81. Statement error{e.b}
  82.   Request "Error!","An error has occurred.|Error code: "+UStr$(e)+"|Please look at the .guide for information...","Okay"
  83.   Exec "sys:utilities/multiview docs/modgraph.guide"
  84. End Statement
  85.  
  86. ;Macro isizewin                      ;to size inside the window
  87. ;  Use Window '1:r\wid=InnerWidth,InnerHeight
  88. ;End Macro
  89.  
  90.